home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_10_TOC non-shared handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.4 KB  |  39 lines
  1. global sectionPList, currCDROMText, gTextHold, gDrLabClickMsg, auxLocPList, pictureSp1, videoBorderSp1, videoSp1, gSep, gModule, gTocCastNum, gDbICastNum, indexType, toc_dbiCastLib
  2.  
  3. on setupCDROM
  4.   cursor(4)
  5.   set indexType to #toc
  6.   updateStage()
  7.   put EMPTY before line 1 of field "table of contents" of castLib toc_dbiCastLib
  8.   put EMPTY before line 1 of field "scroll text field" of castLib toc_dbiCastLib
  9.   go("TOC")
  10.   set auxLocPList to [:]
  11.   set auxLocPList to ["pic1": point(250, 156), "pic2": point(250, 269), "cap1": point(188, 230), "cap1": point(188, 343), "vidBorder1": point(250, 148), "video1": point(250, 140), "vidBorder2": point(250, 262), "video2": point(250, 254)]
  12.   set pictureSp1 to 41
  13.   set videoBorderSp1 to 42
  14.   set videoSp1 to 43
  15.   set gTocCastNum to the number of member "table of contents" of castLib toc_dbiCastLib
  16.   set gDbICastNum to the number of member "database index text" of castLib toc_dbiCastLib
  17.   setFingerCursor(#on, [40, 46, 47, 48])
  18.   cursor(-1)
  19. end
  20.  
  21. on setTOCReturn
  22.   if (getaProp(sectionPList, #usedEquip) = 1) and (getaProp(sectionPList, #checkedTask) = 1) then
  23.     PlayDrLabcoat("C4.mov")
  24.     set gDrLabClickMsg to "C4.mov"
  25.   else
  26.     PlayDrLabcoat(gDrLabClickMsg)
  27.   end if
  28. end
  29.  
  30. on copyText
  31.   set gTextHold to char the selStart + 1 to the selEnd of field currCDROMText
  32. end
  33.  
  34. on SelectAll
  35.   set selStart to 1
  36.   set selEnd to the number of chars in field currCDROMText
  37.   hilite field currCDROMText
  38. end
  39.